home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 14 / QRZ Ham Radio Callsign Database - Volume 14.iso / modfiles / ts940ibm.txt < prev    next >
Internet Message Format  |  1999-10-09  |  4KB
  1. From: VK3YZW@VK3YZW
  2. To: ALL
  3. Subject: TS-940 Control Program
  4. HI,
  5.    THIS PROGRAM WAS A RESULT OF A PRIVATE REQUEST AND IS NOW PUT
  6. ON THE BBS FOR ALL TO USE WHO MAY LIKE TO TAKE ADVANTAGE.
  7.  
  8. GOOD LUCK WITH IT....DON
  9.  
  10. Here below is a program that can control the TS940 to run under IBM XT.
  11. The program is written by JA6FTL and his group.
  12. The program is being used by JA6FTL and no bug report was found!
  13. Good Luck, 73
  14.  
  15. Eric VS6EL @ VS6EL
  16. ; **********************************************************
  17. ;       TS-940 remote control programm for IBM-PC/AT/XT
  18. ;       1988/05 Southern NET
  19. ;   MBBIOS and MBMODE must be run before execute.
  20. ;   Com port 1-6(A-F) allowed.
  21. ;       Usage....... 940set_(port)_(parameter)(parameter)...
  22. ;       example         940set a FA00014073000;MD1;
  23. ; ***********************************************************
  24.  
  25.  
  26. NUL     = 00h
  27. TAB     = 09h
  28. CR      = 0dh
  29. LF      = 0ah
  30. BEEP    = 07h
  31. error   = 1
  32. noerror = 0
  33.  
  34. print   macro string
  35.         mov     ax,data
  36.         mov     ds,ax
  37.         lea     dx,string
  38.         mov     ah,09h
  39.         int     21h
  40.         endm
  41. putch   macro   ch
  42.         mov     dl,ch
  43.         mov     ah,02h
  44.         int     21h
  45.         endm
  46.  
  47. mg      group   code,data
  48. data    segment
  49. no_cn           db      BEEP,"Not channel [A-F]$",CR,LF
  50. cmd_e_msg       db      BEEP,"ommamd error .Usage (channel) (parameter)",CR,LF,"$"
  51. no_bios         db      BEEP,"Not loadedMBBIOS.$"
  52. data    ends
  53.  
  54.  
  55. cod     segment
  56.         assume  cs:code;ds:code
  57.         org     81h
  58. channel label   byte
  59.         org     82h
  60. cmdline label   byte
  61. start:
  62.         org     100h
  63. main    proc    near
  64.  
  65.         call    bios_chk        ; com bios exit ?
  66.  
  67.         modi,offset channel
  68. argment:mov     al,[di]
  69.         cmp     al,CR
  70.         je      cmd_error       ;command error
  71.         cmp     al,' '
  72.         jne     port
  73.         add     di,1
  74.         loop    argment
  75. port:
  76.         push    ds
  77.         call    chk_ch          ;channel check
  78.         sub     al,'A'          ; get port idn
  79.         mov     ah,0
  80.         mov     bx,ax           ; CX is port idn
  81.         pop     ds
  82.         mov     di,offset cmdline
  83.         add     di,2
  84. get_cm
  85.         mov     al,[di]
  86.         add     di,1
  87.         cmp     al,CR
  88.         jz      e_p             ;end
  89.         cmp     al,' '          ; skip space
  90.         jz      get_cmd
  91.         call    toupr
  92.         call    outi
  93.         loop    get_cmd
  94. extprog:mov     al,0
  95.         mov     ah,4ch
  96.         int     21h
  97. cmd_error:
  98.         print   cmd_e_msg
  99.         jmp     end_p
  100. chk_ch:                         ;channel is A-F ?
  101.  
  102.         call    toupr           ; to upper
  103.         cmp     al,'A'
  104.         jl      no_cn_msg
  105.         cmp     al,'G'
  106.         jg      no_cn_msg
  107.         ret
  108. toupr:
  109.         cmp     al,'Z'
  110.         jl      not_mall
  111.         sub     al,20h
  112. not_small:
  113.         ret
  114. no_cn_msg:                      ;no channel msg
  115.         print   no_cn
  116. end_p:
  117.         mov     al,0            ; nomal end
  118.         mov     ah,4ch
  119.         int     21h
  120. bios_chk:
  121.         mov     dx,00
  122.         mov     ah,04
  123.         int     14h
  124.         cmp     a0aa55h
  125.         jne     exit           ; bios no loaded
  126.         ret
  127. exit:
  128.         print   no_bio
  129.  
  130.         jmp     end_p
  131. outi:
  132.         push    bx
  133.         xor     dx,dx
  134.         mov     dx,bx           ; load port_idn
  135.         mov     ah,01h          ; sirial out cmd for int 14
  136.         int     14h
  137.         pop     bx
  138.         ret
  139.  
  140. main    endp
  141.  
  142. code    ends
  143.         end     main
  144.  
  145. Copied from the QRZ! Windows Ham Radio CDROM
  146.  
  147.